home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / turbovis / ptg120co.zip / BBGUI.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-06  |  1KB  |  15 lines
  1. (* This file was mangled by Mangler 1.13 (c) Copyright 1993 by Berend de Boer *)
  2.  {$IFDEF DPMI} {$S-} {$ELSE} {$F+,O+} {$ENDIF} UNIT BBGUI ;INTERFACE CONST CMYES =12 ;CMNO =13 ;
  3. TYPE PRINTERRORTYPE =PROCEDURE  (CONST S :STRING ;AHELPCTX :WORD );INFOBOXTYPE =PROCEDURE  (S :STRING ;AHELPCTX :WORD );
  4. USERANSWERTYPE =FUNCTION  (CONST S :STRING ;AHELPCTX :WORD ):WORD ;VAR PRINTERROR :PRINTERRORTYPE ;
  5. INFOBOX :INFOBOXTYPE ;USERANSWER :USERANSWERTYPE ;PROCEDURE TEXTPRINTERROR (CONST S :STRING ;AHELPCTX :WORD );
  6. PROCEDURE TEXTINFOBOX (S :STRING ;AHELPCTX :WORD );FUNCTION TEXTUSERANSWER (CONST S :STRING ;AHELPCTX :WORD ):WORD ;
  7. IMPLEMENTATION USES BBERROR , BBFILE , BBUTIL ;PROCEDURE OII0II1OI0l ;ASSEMBLER;ASM {} MOV DL , 07h {} MOV AH , 02h {}
  8. INT 21h {} END;PROCEDURE TEXTPRINTERROR (CONST S:STRING ;AHELPCTX:WORD);BEGIN OII0II1OI0l ;WRITELN (S );IF FILEOPEN (FERR
  9. )THEN BEGIN WRITELN (FERR , 'Error: ', GETDATESTR , ' ', GETTIMESTR , '  ', S );DUMPSTACK (0 );END ;END ;
  10. PROCEDURE TEXTINFOBOX (S:STRING ;AHELPCTX:WORD);BEGIN WRITELN (S );END ;FUNCTION TEXTUSERANSWER (CONST S:STRING ;
  11. AHELPCTX:WORD):WORD ;VAR OOlIll10O1ll:STRING ;BEGIN WRITELN (S );REPEAT READLN (OOlIll10O1ll );UNTIL (OOlIll10O1ll <>
  12. '')AND (UPCASE (OOlIll10O1ll [ 1 ] )IN [ 'Y', 'N'] );IF UPSTR (OOlIll10O1ll [ 1 ] )='Y'THEN TEXTUSERANSWER := CMYES ELSE
  13. TEXTUSERANSWER := CMNO ;END ;BEGIN PRINTERROR := TEXTPRINTERROR ;INFOBOX := TEXTINFOBOX ;USERANSWER := TEXTUSERANSWER ;
  14. END .
  15.